inherited frmPayTypesTraitsSet: TfrmPayTypesTraitsSet
  Left = 401
  Top = 246
  Width = 365
  Height = 113
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077' '#1087#1088#1080#1079#1085#1072#1082#1072' '#1085#1072' '#1090#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 8
    Top = 8
    Width = 87
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
  end
  object DBText1: TDBText [1]
    Left = 102
    Top = 8
    Width = 243
    Height = 17
    DataField = 'PAY_NAME'
    DataSource = sprPayTypes.dscRefer
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label2: TLabel [2]
    Left = 8
    Top = 34
    Width = 87
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1055#1088#1080#1079#1085#1072#1082
  end
  inherited Panel1: TPanel
    Top = 59
    Width = 357
    inherited BitBtn1: TBitBtn
      Left = 150
    end
    inherited BitBtn2: TBitBtn
      Left = 252
    end
  end
  inherited ToolBar1: TToolBar
    Width = 357
    Height = 0
  end
  object dblcTraitsList: TDBLookupComboboxEh [5]
    Left = 102
    Top = 30
    Width = 243
    Height = 19
    AlwaysShowBorder = True
    DropDownBox.Columns = <
      item
        FieldName = 'CODE'
      end
      item
        FieldName = 'NAME'
      end>
    DropDownBox.ListSource = dscTraitsList
    DropDownBox.Sizable = True
    EditButtons = <>
    Flat = True
    KeyField = 'ID'
    ListField = 'NAME'
    ListSource = dscTraitsList
    TabOrder = 2
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 324
    Top = 4
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  object dsTraitsList: TpFIBDataSet
    SelectSQL.Strings = (
      'select srt.id, srt.name, srt.code'
      'from pay_type_traits srt'
      'where not exists(select 1'
      '            from pay_types2traits ptt'
      '            where ptt.traits_id = srt.id'
      '              and ptt.p_type = :pay_type_code)')
    Transaction = trLocal
    Database = MAINDM.pMainDatabase
    Left = 252
    Top = 18
  end
  object dscTraitsList: TDataSource
    DataSet = dsTraitsList
    Left = 282
    Top = 18
  end
  object QAddTrait: TpFIBQuery
    Transaction = trLocal
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'INSERT INTO PAY_TYPES2TRAITS('
      '    TRAITS_ID,'
      '    P_TYPE'
      ')'
      'VALUES('
      '    :TRAITS_ID,'
      '    :P_TYPE'
      ')')
    Left = 216
    Top = 16
    qoStartTransaction = True
  end
  object trLocal: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 184
    Top = 16
  end
end
